Untuk daftar klik link dibawah ini
Klik disini
<% Dim ua_zest,ip_zest,cid_zest,mt_zest,req_zest,protocol,pageUrl,ad_type Dim url_zest,xml_zest,ry_zest,xr_zest,yr_zest,rx_zest,lm_zest Dim ad_landing_zest,ad_output_zest 'CHANGE THE FOLLOWING VARIABLE STRING WITH YOUR SPECIFIED KEYWORDS' mt_zest="Your keywords here" 'CHANGE THE FOLLOWING TEXT WITH YOUR OWN TEXT, WHICH WILL BE DISPLAYED WHEN THERE IS NO ADS TO DISPLAY' alt_ad = "NO ADS TO DISPLAY" 'CHANGE THE AD TYPE AS YOUR PREFERRENCE ' ad_type=server.URLencode("Text") 'DO NOT CHANGE AFTER THIS LINE' ua_zest=Server.URLEncode(request.ServerVariables("HTTP_USER_AGENT")) ip_zest=Server.URLEncode(request.ServerVariables("REMOTE_ADDR")) cid_zest="14131C047A5041474F5E41524359425C888022" protocol = ternarycond_chk(Request.ServerVariables("HTTPS") = "off", "http://", "https://") pageUrl = protocol & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") pageUrl=server.URLencode(pageUrl) url_zest="http://a.zestadz.com/waphandler?cid="+cid_zest+"&ua="+ua_zest+"&ip="+ip_zest+"&mt="+mt_zest+"&ad_type="+ad_type+"&url="+pageUrl On Error Resume Next Err.Clear Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", url_zest, false xml.Send If Err.Number Then Response.write (alt_ad) else ad_output_zest=xml.responseText Set xml = Nothing errchk = Split(ad_output_zest,"~")(0) lm_zest = Split(ad_output_zest,"~")(0) lm_zest = lm_zest&("~")&("ck") lm_zest = Trim(lm_zest) ry_zest = Split(ad_output_zest,"~")(1) xr_zest= Split(ad_output_zest,"~")(2) yr_zest = Split(ad_output_zest,"~")(3) if(ry_zest=3) Then rx_zest = Split(ad_output_zest,"~")(4) End If ad_landing_zest="http://a.zestadz.com/waplanding?lm="&lm_zest&"" if(ry_zest<>"NO ADS TO DISPLAY")Then If(ry_zest=1) Then Response.write ("" & "" & "") ElseIf(ry_zest=2) Then Response.write ("" & xr_zest & "") ElseIf(ry_zest=3) Then Response.write ("" & "" & "") ElseIf(ry_zest=4) Then Response.write ("ERROR CONNECTING TO ZESTADZ") End If End If If(errchk="ERROR: CID IS BLANK. NO ADS TO DISPLAY")Then Response.write ("
") Response.write(errchk) End If If(errchk="ERROR: CID IS INCORRECT. NO ADS TO DISPLAY")Then Response.write ("
") Response.write(errchk) End If If(errchk="YOUR AD ACCOUNT HAS BEEN BLOCKED")Then Response.write ("
") Response.write(errchk) End If If(ry_zest="NO ADS TO DISPLAY") Then Response.write ("
") Response.write(ry_zest) End If End If 'end for resume next ' Implement ternary operator to check whether http or https ' Function ternarycond_chk(condition, truereturn, falsereturn) If condition = True Then ternarycond_chk = truereturn Else ternarycond_chk = falsereturn End If End Function %>